A.C.E. 1/ACE CD 1.iso/files/utils/musicx22.dms/in.adf/Install Music-X

Text File | 1978-10-20 | 9.4 KB | 472 lines

; Installation script for Music-X 2.0
; $VER: Install-MusicX 2.0 (10th May 1994)

; a subroutine for later

(procedure askmidi
  (
    (set whichmidi
      (askoptions
        (prompt "Which serial outputs do you want to support?")
        (help @askoptions-help)
        (choices "Internal Serial Port" "Checkpoint Serial Card" "One-Stop Music Shop")
        (default 1)
      )
    )

    (set count 1)
    (set midiports "")

    (if (bitand whichmidi 1)
      (
        (set midiports "internal,1A")
        (set count 2)
      )
    )
    (if (bitand whichmidi 2)
      (
        (if (<> midiports "") (set midiports (cat midiports "|")))
        (set midiports (cat midiports "checkpoint," count "A," (+ count 1) "B"))
        (set count (+ count 2))
      )
    )
    (if (bitand whichmidi 4)
      (
        (if (<> midiports "") (set midiports (cat midiports "|")))
        (set midiports (cat midiports "OneStopMusicShop," count "A," (+ count 1) "B"))
      )
    )

    (if (<> midiports "")
        (tooltype
          (dest (tackon app_locate "Music-X"))
          (settooltype "MIDIPORTS" midiports)
        )
    )
  )
)

; some 'constants'

(set app_volume_name_1 "Music-X2.0")
(set app_volume_name_2 "Music-Xtras")
(set app_volume_1 "Music-X2.0:")
(set app_volume_2 "Music-Xtras:")
(set orig_user_level @user-level)

(set libdir "Music-Xtras:Libraries")
(set perfdir "Music-Xtras:Performances")
(set filtdir "Music-Xtras:KMaps")

; ask user if this is a new install
; switch user level to EXPERT do this

(user 2)

(set update
    (askbool
        (prompt "Is there a version of Music-X already installed on your system?")
        (help "Select 'Yes' is you already have either version 1.0 or 1.1 of "
              "Music-X installed on your system. If you are a newcomer, select "
              "'No'.")
        (default 0)
    )
)

(complete 5)

; first, handle the case of an update

(if update
    (
      (set app_locate
        (askdir
          (prompt "Please indicate where your current copy of Music-X is located.")
          (help @askdir-help)
          (default @default-dest)
        )
      )

      (set @default-dest app_locate)

      ; switch user level back

      (user orig_user_level)

      (complete 10)

      ; copy files on disk 2 to drawer (assume in drive)

      (set xtras
        (askoptions
          (prompt "Which (if any) of these sets of files do you want installed along "
            "with the Music-X program files?")
          (help @askoptions-help)
          (choices "Librarian Support" "Keymaps" "Example Performances"
            "Samples" "Utilities" "ARexx Scripts")
          (default 63)
        )
      )

      (complete 15)

      (if (bitand xtras 1)
        (
          (copyfiles
            (source app_volume_2)
            (dest app_locate)
            (choices "Editors" "Editors.Doc" "Libraries" "Protocols.Doc" "Copy_From_NX.Doc" "Late Notes.Doc")
            (infos)
          )
          (copyfiles
            (source (tackon app_volume_2 "icons/libr"))
            (dest app_locate)
            (all)
          )
          (set libdir "Libraries")
        )
      )

      (complete 25)

      (if (bitand xtras 2)
        (
          (copyfiles
            (source app_volume_2)
            (dest app_locate)
            (choices "Kmaps")
            (infos)
          )
          (copyfiles
            (source (tackon app_volume_2 "icons/kmap"))
            (dest app_locate)
            (all)
          )
          (set filtdir "KMaps")
        )
      )

      (complete 35)

      (if (bitand xtras 4)
        (
          (copyfiles
            (source app_volume_2)
            (dest app_locate)
            (choices "Performances")
            (infos)
          )
          (copyfiles
            (source (tackon app_volume_2 "icons/perf"))
            (dest app_locate)
            (all)
          )
          (set perfdir "Performances")
        )
      )

      (complete 45)

      (if (bitand xtras 8)
        (
          (copyfiles
            (source app_volume_2)
            (dest app_locate)
            (choices "Samples")
            (infos)
          )
          (copyfiles
            (source (tackon app_volume_2 "icons/samp"))
            (dest app_locate)
            (all)
          )
        )
      )

      (complete 55)

      (if (bitand xtras 16)
        (
          (copyfiles
            (source app_volume_2)
            (dest app_locate)
            (choices "Lookout" "LookOut.doc" "MusicX-to-MIDI" "MusicX-to-SMUS")
            (infos)
          )
          (copyfiles
            (source (tackon app_volume_2 "icons/util"))
            (dest app_locate)
            (all)
          )
        )
      )

      (complete 65)

      ; copy files on disk 1 to drawer

      (askdisk
        (prompt "Please insert the disk labeled \"Music-X Program Disk\".")
        (help @askdisk-help)
        (dest app_volume_name_1)
      )

      (copyfiles
        (source app_volume_1)
        (dest app_locate)
        (choices "Music-X" "TitlePage" "MusicX-Modules" "Default.Perf"
            "Install Modules" "Modules" "Protocols")
        (infos)
      )

      (complete 85)

      (tooltype
        (dest (tackon app_locate "Music-X"))
        (settooltype "PROTODIR" "Protocols")
        (settooltype "PERFTOOL" (tackon app_locate "Music-X"))
        (settooltype "LIBDIR" libdir)
        (settooltype "PERFDIR" perfdir)
        (settooltype "FILTDIR" filtdir)
      )

      (complete 90)

      (if (bitand xtras 32)
        (copyfiles
          (source app_volume_1)
          (dest app_locate)
          (choices "rexx")
        )
      )

      (complete 93)

      (copyfiles
        (source (tackon app_volume_1 "devs/midi"))
        (dest "devs:midi")
        (choices "internal" "checkpoint" "OneStopMusicShop")
        (infos)
      )

      (complete 95)

      (if (exists "devs:midi.device")
        (delete "devs:midi.device"
          (prompt "The file 'midi.device' is no longer needed by Music-X. Should "
            "it be deleted?")
          (help "The file 'midi.device' was included in Music-X 1.0. It is no "
            "longer needed.")
          (confirm)
        )
      )

      (delete (tackon app_locate "MXAssign") (infos))

      (askmidi)

      (exit)
    )
)

; switch user level back

(user orig_user_level)

; tell average/expert user what we'll be doing

(message
   "\nYour copy of Music-X 2.0 will be installed in a new drawer named "
   "\"Music-X Drawer\". You will be asked where on your hard drive "
    "(or other storage device) you want this drawer created. In addition, "
   "some fonts and midi drivers will be installed in your system area."
)

; ask user where to put the drawer

(set app_locate
   (askdir
      (prompt "Please indicate where you want the Music-X Drawer "
            "to be located.")
      (help @askdir-help)
      (default @default-dest)
   )
)

; make the main drawer

(set app_locate (tackon app_locate "Music-X Drawer"))

(makedir app_locate (infos))

(set @default-dest app_locate)

(complete 10)

; copy files on disk 2 to drawer (assume in drive)

(set xtras
  (askoptions
    (prompt "Which (if any) of these sets of files do you want installed along "
      "with the Music-X program files?")
    (help @askoptions-help)
    (choices "Librarian Support" "Keymaps" "Example Performances"
      "Samples" "Utilities" "ARexx Scripts")
    (default 63)
  )
)

(complete 15)

(if (bitand xtras 1)
  (
    (copyfiles
      (source app_volume_2)
      (dest app_locate)
      (choices "Editors" "Editors.Doc" "Libraries" "Protocols.Doc" "Copy_From_NX.Doc" "Late Notes.Doc")
      (infos)
    )
    (copyfiles
      (source (tackon app_volume_2 "icons/libr"))
      (dest app_locate)
      (all)
    )
    (set libdir "Libraries")
  )
)

(complete 25)

(if (bitand xtras 2)
  (
    (copyfiles
      (source app_volume_2)
      (dest app_locate)
      (choices "Kmaps")
      (infos)
    )
    (copyfiles
      (source (tackon app_volume_2 "icons/kmap"))
      (dest app_locate)
      (all)
    )
    (set filtdir "KMaps")
 )
)

(complete 35)

(if (bitand xtras 4)
  (
    (copyfiles
      (source app_volume_2)
      (dest app_locate)
      (choices "Performances")
      (infos)
    )
    (copyfiles
      (source (tackon app_volume_2 "icons/perf"))
      (dest app_locate)
      (all)
    )
    (set perfdir "Performances")
  )
)

(complete 45)

(if (bitand xtras 8)
  (
    (copyfiles
      (source app_volume_2)
      (dest app_locate)
      (choices "Samples")
      (infos)
    )
    (copyfiles
      (source (tackon app_volume_2 "icons/samp"))
      (dest app_locate)
      (all)
    )
  )
)

(complete 55)

(if (bitand xtras 16)
  (
  (copyfiles
      (source app_volume_2)
      (dest app_locate)
      (choices "Lookout" "LookOut.doc" "MusicX-to-MIDI" "MusicX-to-SMUS")
      (infos)
    )
    (copyfiles
      (source (tackon app_volume_2 "icons/util"))
      (dest app_locate)
      (all)
    )
  )
)

(complete 65)

; copy files on disk 1 to drawer

(askdisk
  (prompt "Please insert the disk labeled \"Music-X Program Disk\".")
  (help @askdisk-help)
  (dest app_volume_name_1)
)

(copyfiles
  (source app_volume_1)
  (dest app_locate)
  (choices "Music-X" "TitlePage" "MusicX-Modules" "Default.Perf"
    "Install Modules" "Modules" "Protocols")
  (infos)
)

(complete 85)

(tooltype
  (dest (tackon app_locate "Music-X"))
  (settooltype "PROTODIR" "Protocols")
  (settooltype "PERFTOOL" (tackon app_locate "Music-X"))
  (settooltype "LIBDIR" libdir)
  (settooltype "PERFDIR" perfdir)
  (settooltype "FILTDIR" filtdir)
)

(complete 90)

(copyfiles
  (source (tackon app_volume_1 "fonts"))
  (dest "FONTS:")
  (choices "Peridot" "MXsymbols")
  (fonts)
)

(complete 93)

(if (bitand xtras 32)
  (copyfiles
    (source app_volume_1)
    (dest app_locate)
    (choices "rexx")
  )
)

(complete 95)

(copyfiles
  (source (tackon app_volume_1 "devs/midi"))
  (dest "devs:midi")
  (choices "internal" "checkpoint" "OneStopMusicShop")
  (infos)
)

(askmidi)

(exit)